home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / CHF.ARJ / CHF.CH < prev    next >
Text File  |  1991-09-26  |  1KB  |  47 lines
  1. #include "FILEIO.ch"
  2. #include "SETCURS.ch"
  3. #include "BOX.ch"
  4.  
  5. #define F_NAME 1
  6. #define CRLF CHR(13)+CHR(10)
  7.  
  8. #define DBF_NAME IF(dbff==NIL,NIL,                        ;
  9.     IF(".DBF" $UPPER(dbff),                            ;
  10.         dbff,UPPER(dbff)+".dbf"))
  11.  
  12. #define CH_NAME LEFT(dbffile,LEN(dbffile)-4)+".ch"
  13.  
  14.  
  15. #define HEADLINE "/* "+IF(ch_name==NIL,(CH_NAME),          ;
  16.     UPPER(ch_name)+".ch")+"(for"+                      ;
  17.         dbffile+") */"+CRLF+CRLF
  18.  
  19.  
  20. #define TYPELINE SPACE(25+LEN(cSYMBOL))+ ;
  21.           "/* Types Lens Deci */" + CRLF
  22.  
  23. #define BUFFER "#define"+"  "+cSYMBOL+PADR(FIELDNAME(y),13)+   ;
  24.     PADR(STR(y,4),8)+"// "+Fieldtype(y)+              ;
  25.     " "+STR(FieldLen(y),4)+" "+      ;
  26.         STR(Fielddec(y),3)+CRLF
  27.  
  28. #define FOOTLINE CRLF +"/* End of file: "+          ;
  29.     IF(ch_name==NIL,(CH_NAME),UPPER(ch_name)+      ;
  30.     ".ch")+CRLF
  31.  
  32. #define CREDIT "// GENERATED WITH CHF.EXE"+CRLF
  33.  
  34. #define COPYRITE "//Copyright (c)1991 Steve Kolterman."+;
  35.     "All rights reserved. */"+CRLF
  36.  
  37. #define WILDCARD (("*"$dbff.OR."?"$dbff).AND.         ;
  38.     (RIGHT(UPPER(dbff),4)==".DBF"))
  39.  
  40. #define NIL_COND (dbff==NIL .OR.                         ;
  41. !FILE(DBF_NAME).OR. fn_array==NIL)
  42.  
  43. #define NTOC(x) LTRIM(STR(x))
  44.  
  45. #command BEEP3 =>tone(800,1);tone(1600,1);tone(800,1)
  46. #command BEEP2 =>tone(800,1);tone(1600,1)
  47.